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EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON » OOOOOlia 
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DSK DISK SERIAL 
PRN 4(2*16); 
INTEGER I*J* 
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PTIME*I0TIME*SECQN0PBITS*SEC0NDDPBITS[0!29J; 
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ARRAY QLAY*FIRSTCHUNK*LaSTCHUNK[0:29J* 
LABEL EOF*RDi; 

real strtime*stptime*dverlayused; 



00000600 
00000700 
00000800 



REAL MIX*W0RDZER0,ST0PTIME*NAME1*NAME2* 
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STREAM PROCEDURE SC ANF I LE ( LOG ) i 
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SIfLOGJ Oll« LQC LQCftLl) 



•00003600 
00003700 
QQ0 Q38 0Q 



OIl^Dl+1* 

7CIF SC»"/" THEN DSi=LIT" 
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OS I*? CHR* 1 
SI»»LOC locali; 
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end; 
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CNTC2]»= REALU.[30I6] NEQ 0); 
CNTt3H= REALCI. C 36*6 J NEQ 0)J 
CNTC^t 3 »~ REA LU t[42«6 , i jjLQ o?; 



OVERLAVUSEOl«((Cl.t3lUJ-l)»«5) + CNTCO-3 + CNTtl3+CNTC2 3* 

CNTL33+CNTC4J); 
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STREAM PROCEDURE 
BEGIN 



DOIT(A); 
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DSI-LIT'^O"; 



end; 
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WRITE(TMXCST0P3»ASKEDRAFILE); READ (ThX* 2*LGU[* J )J 
SCANEILE(LOG); 
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FILL DSK WITH LOG CO] ,LQG [ I3i 

HRITE(PRN'LOGNAME»L0Gt0 3.C6t6-]»u0GC0]»L0GCH.t6l6]»LOGC13 )'> 

READ(DSK#10>L0GRECC»3)CE0F]i 



IF CW0RDZERQ!=L0GREC[U] ) * 

MIX»"WORDZERO,CMIXF]; 

IF WQRDZeRQ«[TYP] s 2 THEN 



8EALCNQ1 FALSE) THEN Go To EOF 
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BEGIN 



STARTlMECMlX]l»WOR0ZERO«tTIM£F3; 

g o to Rm ; 



end; 

IF WOROZEROtCTYP] s 
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CORETlMEtMlX18W0RDZERO.tMIXF3J»*LOGRECtlJ; 
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FIRSTcHUNK[PlX3f LOGRECi:fl3«[18«63j 
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C0DEPBlTSC*IX3lsLUGREa63,l2<H24 3; 



DATAP9ITSCMiX3J=U8GREC[63 ,11*23 3; 
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MIXATE0JCMIX]»«L(JGRECC6]; 
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GO TO Rot; 
end; 
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BEGIN 



PTIMECMIX3*«L0GRECCI]; 
I0TIME[M I X 3« HQGREC[2 J; 



enq; 



C0RECMIX3I 
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00009600 
00009700 
00009800 
00009900 

oooioooo 

ootn oi QQ 



IF W0RDZER0«tTYP3 « 
BEGIN 

IF OVERLAYUSEm 



3 THEN X I fS AN EJJ MESSAGE 
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WRITE(PRN# JOB STATS* NAME l.tOI6]# NAME 1/MME2. C6I63 #NAME 2 > QOOll 100 
(STARTlM£tMIX]/3600D DIV 60* 00011200 
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(IOTIMECMIXJ DIV 3600)# 00012000 
U0TIMECMIX3 MOO 3600i/60# 00012100 
C0RECMIX3* : 00012200 
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EOF* END« 00014200 
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